home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
EGAVGA.SWG
/
0106_Linked in BGI files.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-05-25
|
1KB
|
52 lines
{
Here's the recipe to get rid of missing BGI drivers!
To get EGAVGA.OBJ use the BINOBJ utility supplied with Turbo Pascal
BINOBJ EGAVGA.BGI EGAVGA EGAVGA
To use this unit just add it to your uses statement once and forget
all about path's in Initgraph (use ''). The unit can be extended to
support additional drivers, like CGA.BGI. Read the GRAPH.DOC file
on the TP disks.
-----------------------<cut here
{---------------------------------------------------------}
{ Project : Turbo EGAVGA Driver }
{ Auteur : G.W. van der Vegt }
{---------------------------------------------------------}
{ Datum .tijd Revisie }
{ 920301.1300 Creatie. }
{---------------------------------------------------------}
UNIT Bgi_01;
INTERFACE
USES
Graph;
IMPLEMENTATION
{------------------------------------------------}
{----EGAVGA.BGI Driver }
{------------------------------------------------}
PROCEDURE Egavga; External;
{$L Egavga.obj}
BEGIN
IF RegisterBGIDriver(@Egavga)<0
THEN
BEGIN
Writeln('Error registering driver: ',
GraphErrorMsg(GraphResult));
Halt(1);
END;
END.